home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Environments / Frontier 4.0.1 / Frontier user guide (html) / tourpix / tour38.gif < prev    next >
Graphics Interchange Format  |  1996-01-24  |  3.5 KB  |  373x326  |  1-bit (2 colors)  |  [GIFf/BABL]
   ocr: on countwordFiles (path) local matchesFound == 0) <number of "1icrosott Word files we found on - counter (folder) fileloop (f in folder) if file.isFolder (f) counter (f) else msg (file.fileFromPath (f)) if file.creator (f) == MSWD' matchesround** counter file.folderFromPath (path)) if matchesround == 0 local (s = file.filerromPath file.folderFromPath (path))) s="There are no Word files in the - +s+ - folder." dialog.alert (s) else local (s == file.fileFromPath file.folderFromPath (path))) s="There were - + matchesround + " Word files in the "+s+" - folder. - dialog.alert (s)